home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / retrieve.arc / RETRIEVE.DOC next >
Text File  |  1984-12-05  |  43KB  |  1,431 lines
  1.      RETRIEVE: A REFERENCE ARTICLE CITATION FILING AND 
  2.       RETRIEVAL SYSTEM USING THE dBASE II* RELATIONAL 
  3.                  DATABASE MANAGEMENT SYSTEM
  4.  
  5.  
  6.  
  7.  
  8.  
  9.                   David A. Lathrop, Ph.D.
  10.                                   
  11.  
  12.  
  13.             CARDIAC ELECTROPHYSIOLOGY LABORATORY
  14.           CHILDREN'S HOSPITAL RESEARCH FOUNDATION
  15.                   CINCINNATI, OHIO  45229
  16.                        (513) 559-4482
  17.  
  18.  
  19. I. DESCRIPTION:
  20.  
  21.      R+E+T+R+I+E+V+┼ i≤ ß collectioε oµ dBAS┼ II¬ commanΣ ì
  22. file≤ whicΦ allo≈ creatioε oµ ß referencσ articlσ citatioε ì
  23. databasσ fo≥ retrieva∞ b∙ aε assigneΣ referencσ number¼ ì
  24. author¼ title¼ source¼ o≥ ke∙ word«  T∩ usσ thσ system¼ yo⌡ ì
  25. mus⌠ posses≤ ß versioε oµ thσ dBAS┼ II¬ assembly-languagσ ì
  26. relationa∞ databasσ managemen⌠ system«  
  27.      Thσ R+E+T+R+I+E+V+┼ systeφ allow≤ thσ use≥ t∩ storσ ì
  28. referencσ articlσ citation≤ b∙ authors¼ title¼ source¼ ke∙ ì
  29. word≤ anΣ ß codσ t∩ bσ useΣ iε filinτ thσ origina∞ article«  ì
  30. Thi≤ i≤ donσ b∙ allowinτ thσ use≥ t∩ inpu⌠ record≤ int∩ ß ì
  31. dBAS┼ II¬ databasσ filσ nameΣ REFS.DB╞ havinτ thσ followinτ ì
  32. structure:
  33.  
  34.                 FL─     NAM┼      TYP┼ WIDTH
  35.                 ---     ----      ---- -----
  36.                 00▒   REF:N╧       ├    005
  37.                 00▓   AUTHOR╙      ├    080
  38.                 00│   TITL┼        ├    160
  39.                 00┤   SOURC┼       ├    080
  40.                 00╡   KWORD╙       ├    080
  41.  
  42.      Thσ systeφ consist≤ oµ oµ thσ followinτ ninσ dBAS┼ I╔ ì
  43. commanΣ files║ 
  44.  
  45. RETRIEVE.CM─  NEWENTRY.CM─  AUTONUMB.CM─  FIND.CMD
  46. FASTFIND.CM─  INDEX.CM─     LABEL.CM─     EDIT.CMD
  47.  
  48.      Onl∙ onσ databasσ filσ i≤ created¼ REFS.DBF«  Inde° ì
  49. file≤ arσ createΣ oε fou≥ oµ thσ fields╗ REF#.NDX¼ ì
  50. AUTHORS.NDX¼ SOURCE.NDX¼ anΣ KWORDS.NDX« 
  51.  
  52.  
  53. OPERATION:
  54.  
  55.      Oncσ yo⌡ havσ typeΣ 'D╧ RETRIEVEº thσ monito≥ screeε ì
  56. wil∞ blanδ anΣ ß messagσ wil∞ appea≥ askinτ you¼ thσ user¼ ì
  57. t∩ ente≥ thσ date«  Afte≥ yo⌡ havσ donσ so¼ anothe≥ messagσ ì
  58. wil∞ appea≥ askinτ iε whicΦ disδ drivσ yo⌡ havσ placeΣ you≥ ì
  59. R+E+T+R+I+E+V+┼ systeφ storagσ diskette«  Iµ yo⌡ havσ ì
  60. followeΣ thσ step≤ iε thσ INSTALLATIO╬ section¼ ente≥ 'B' iε ì
  61. responsσ t∩ thi≤ promp⌠ anΣ thσ maiε R+E+T+R+I+E+V+┼ prograφ ì
  62. men⌡ wil∞ appear.
  63.  
  64.  
  65.  
  66.                  ***  REPRINT FILE MENU ***
  67.  
  68.         0 - EXIT PROGRAM
  69.         1 - ENTER NEW ARTICLES
  70.         2 - ENTER NEW ARTICLES WITH
  71.             (AUTOMATIC REFERENCE NUMBERING)
  72.         3 - FIND ARTICLES
  73.         4 - QUICKLY FIND ARTICLES
  74.             (BY FIRST AUTHOR, FIRST KEY WORD,
  75.             OR FIRST 20 LTRS OF SOURCE)
  76.                 5 - LOCATE ARTICLES & MAKE TEXT FILE
  77.         6 - RE-INDEX FILES
  78.                 7 - MAKE LABELS FOR ARTICLES
  79.         8 - EDIT DATA BASE RECORDS
  80.  
  81. ENTER DESIRED ACTION
  82.   WAITING
  83.  
  84.  
  85.  
  86. OPTION 0 - EXIT
  87.  
  88.      Iµ yo⌡ no≈ typσ '0'¼ thσ prograφ wil∞ exi⌠ t∩ thσ CP/═ ì
  89. promp⌠ afte≥ firs⌠ displayinτ ß messagσ tellinτ yo⌡ ho≈ man∙ ì
  90. record≤ arσ presentl∙ containeΣ iε thσ datß basσ (REFS.DBF).
  91.  
  92.            *** REFS.DBF CONTAINS 1043 RECORDS ***
  93.  
  94.  
  95.  
  96. *** END RUN     dBASE II    ***
  97.  
  98. A>
  99.  
  100. *¬ NOT┼ *¬ T∩ re-rente≥ R+E+T+R+I+E+V+┼ typσ 'D╧ RETRIEVE'.
  101.  
  102.  
  103.  
  104.  
  105. OPTION 1 - ENTER NEW ARTICLES:
  106.  
  107.      Iµ yo⌡ haΣ entereΣ '1'¼ thσ prograφ woulΣ havσ beeε ì
  108. directeΣ t∩ thσ commanΣ filσ NEWENTRY.CM─ anΣ afte≥ ì
  109. answerinτ thσ prompt¼ '*¬ WAN╘ T╧ CONTINUE┐ (Y/N⌐ **º b∙ ì
  110. typinτ 'Y'¼ thσ followinτ inpu⌠ forφ woulΣ appea≥ oε you≥ ì
  111. monitor:
  112.  
  113.  
  114.                REPRINT INFORMATION ENTRY FORM
  115.  
  116.  
  117.  REF. NO. :     :
  118.  
  119.   AUTHORS :                                         :
  120.           :                                         :
  121.  
  122.     TITLE :                                         :
  123.           :                                         :
  124.           :                                         :
  125.           :                                         :
  126.           :                                         :
  127.      
  128.    SOURCE :                                         :
  129.           :                                         :
  130.  
  131. KEY WORDS :                                         :
  132.           :                                         :
  133.  
  134.  
  135.      Thi≤ inpu⌠ forma⌠ allow≤ fivσ character≤ fo≥ aε alpha-ì
  136. numeriπ codσ unde≥ whicΦ t∩ filσ thσ article¼ 8░ character≤ ì
  137. t∩ ente≥ thσ author≤ name(s)¼ 16░ character≤ fo≥ thσ titlσ ì
  138. oµ thσ article¼ 8░ character≤ fo≥ itsº source¼ anΣ 8░ ì
  139. character≤ fo≥ ke∙ indexinτ words«  
  140.  
  141.      Thσ systeφ wa≤ designeΣ s∩ tha⌠ article≤ arσ assigneΣ ì
  142. code≤ consistinτ oµ thσ firs⌠ lette≥ oµ thσ firs⌠ author'≤ ì
  143. las⌠ namσ followeΣ b∙ ß number«  Thσ numbe≥ simpl∙ tell≤ iµ ì
  144. thσ articlσ i≤ thσ 1¼ 2¼ 3¼ ...nthö articlσ witΦ firs⌠ ì
  145. author≤ whosσ las⌠ namesº begiε witΦ ß particula≥ lette≥ iε ì
  146. thσ owner'≤ referencσ file«  Thi≤ numbe≥ i≤ incrementeΣ b∙ ì
  147. onσ eacΦ timσ thσ filσ owne≥ receive≤ ß ne≈ articlσ whosσ ì
  148. firs⌠ author'≤ las⌠ namσ begin≤ witΦ thσ samσ letter«  Thi≤ ì
  149. codinτ systeφ allow≤ thσ filσ owne≥ t∩ maintaiε ß filσ witΦ ì
  150. u≡ t∩ 259,97┤ seperatσ citations«  An∙ codinτ systeφ usinτ ╡ ì
  151. characte≥ alpha-numerics¼ however¼ ma∙ bσ used«  
  152.  
  153.      *¬ IMPORTAN╘ *¬  Thσ firs⌠ author'≤ namσ mustô bσ ì
  154. entereΣ last-name-firs⌠ iε orde≥ fo≥ optioε ┤ (QUICKL┘ FIN─ ì
  155. ARTICLES⌐ t∩ functioε correctly«  Aε articlσ b∙ DaviΣ A« ì
  156. Lathro≡ anΣ Johε Doe¼ therefore¼ woulΣ bσ entereΣ a≤ ì
  157. 'Lathrop¼ D.A.¼ Doe¼ J.'«  Aε examplσ oµ ß completeΣ inpu⌠ ì
  158. i≤ showε below:è
  159.  
  160.  
  161.  
  162.  
  163.                REPRINT INFORMATION ENTRY FORM
  164.  
  165.  
  166.  REF. NO. :L0003:
  167.  
  168.   AUTHORS :Lathrop, D.A., Bailey, J.C.              :
  169.           :                                         :
  170.  
  171.     TITLE :The high resistance junction between the :
  172.           :canine left bundle branch and adjacent   :
  173.           :ventricular septal muscle.               :
  174.           :                                         :
  175.           :                                         :
  176.      
  177.    SOURCE :Clin. Res. 23(4):472A, 1975              :
  178.           :                                         :
  179.  
  180. KEY WORDS :electrotonus - left bundle branch        :
  181.           :                                         :
  182.  
  183.  
  184. OPTIO╬ ▓ - ENTE╥ ARTICL┼ WIT╚ AUTOMATI├ REFERENC┼ NUMBERING:
  185.  
  186.      Thi≤ optioε i≤ simila≥ t∩ optioε 1¼ excep⌠ tha⌠ thσ ì
  187. R+E+T+R+I+E+V+┼ prograφ wil∞ searcΦ thσ databasσ filσ ì
  188. (REFS.DBF⌐ fo≥ thσ las⌠ referencσ numbe≥ entereΣ fo≥ ß ì
  189. particula≥ letter¼ increment≤ thi≤ numbe≥ b∙ ▒ anΣ assign≤ ì
  190. t∩ thσ ne≈ citatioε ß codσ consistinτ oµ thσ firs⌠ lette≥ oµ ì
  191. thσ firs⌠ author'≤ las⌠ namσ plu≤ thσ number«  
  192.  
  193.      *¬ IMPORTAN╘ *¬ Usσ oµ thi≤ optioε assume≤ thσ usσ oµ ì
  194. thσ codinτ systeφ suggesteΣ unde≥ optioε 1í  Thσ followinτ ì
  195. show≤ aε examplσ oµ ß completeΣ optioε ▓ inpu⌠ forφ anΣ thσ ì
  196. resultinτ referencσ numbe≥ assigneΣ t∩ thσ articlσ b∙ thσ ì
  197. program:
  198.  
  199.  
  200.  
  201.  
  202.                REPRIN╘ INFORMATIO╬ ENTR┘ FORM
  203.  
  204.  
  205.   AUTHOR╙ :Lathrop¼ D.A.¼ Elharrar¼ V.¼ Foster¼ P.R.:
  206.           :Bailey¼ J.C.¼ Zipes¼ D.P«                :
  207.  
  208.     TITLE :Suppression of barium induced automa-    :
  209.           :ticity with manganese and verapamil.     :
  210.           :                                         :
  211.           :                                         :
  212.           :                                         :
  213.      
  214.    SOURCE :Clin. Res. 23(4):472A, 1975              :
  215.           :                                         :
  216.  
  217. KEY WORDS :barium - manganese - verapamil - calcium :
  218.           :                                         :
  219.  
  220.  REF. NO. :L0004:
  221.  
  222.  
  223. OPTION 3 - FIND ARTICLES
  224.  
  225.      Thi≤ optioε allow≤ thσ use≥ t∩ locatσ record≤ withiε ì
  226. thσ datß basσ b∙ matchinτ u≡ t∩ threσ substring≤ founΣ iε u≡ ì
  227. t∩ threσ differen⌠ recorΣ fields«  Thσ substring≤ ma∙ bσ ì
  228. entereΣ iε eithe≥ UPPE╥ o≥ lowe≥ caseí  Thσ outpu⌠ oµ thi≤ ì
  229. optioε ma∙ bσ displayeΣ eithe≥ oε thσ monito≥ o≥ thσ ì
  230. printer«  
  231.  
  232.      *¬ NOT┼ *¬ Thi≤ optioε ma∙ bσ usσ t∩ lis⌠ allô oµ thσ ì
  233. citation≤ containeΣ withiε thσ databasσ b∙ enterinτ '3º fo≥ ì
  234. thσ 1s⌠ FIEL─ T╧ SEARC╚ ON¼ `<SPACE>º fo≥ thσ SUBSTRIN╟ T╧ ì
  235. LOCATE¼ anΣ defaultinτ (i.e.ô '<RETUNR>'⌐ througΦ thσ ì
  236. remaininτ SEARC╚ INFORMATIO╬ prompts.
  237.  
  238.      Thσ followinτ show≤ aε examplσ oµ thσ monito≥ inpu⌠ ì
  239. informatioε screen¼ thσ user'≤ responses¼ anΣ thσ firs⌠ ì
  240. printeΣ resul⌠ obtaineΣ durinτ usσ oµ optioε 3:
  241.  
  242.  
  243.  
  244.  
  245.            *** REFS.DBF CONTAINS 1043 RECORDS ***
  246.  
  247.              EACH RECORD CONSISTS OF 5 FIELDS:
  248.  
  249.                  (1) REF:NO     (4) SOURCE
  250.                  (2) AUTHORS    (5) KWORDS
  251.                  (3) TITLE
  252.  
  253.          _________________________________________
  254. è               ** ENTER SEARCH INFORMATION **
  255.  
  256. 1st FIELD TO SEARCH ON (1-5) :2:  SUBSTRING TO LOCATE :LATHROP       :
  257. 2nd FIELD TO SEARCH ON (1-5) :3:  SUBSTRING TO LOCATE :HUMAN         :
  258. 3rd FIELD TO SEARCH ON (1-5) :5:  SUBSTRING TO LOCATE :DILTIAZEM     :
  259.  
  260.            DO YOU WANT RESULTS PRINTED? (Y/N) :y:
  261.  
  262. --------------------
  263.  
  264.  REF. NO. : L0002
  265. AUTHOR(S) : Lathrop, D.A., Valle, R., Gaum, W.E.
  266.             Schwartz, A., Kaplan, S.
  267.     TITLE : The effect of diltiazem and nisoldipine
  268.             on spontaneously active human atrial
  269.             tissue.
  270.    SOURCE : J. Molec. Cell. Cardiol. 13(1):111-115,
  271.             1981
  272. KEY WORDS : diltiazem - nisoldipine - human atrium -
  273.             calcium blockers
  274.  
  275.  
  276. OPTION 4 - QUICKLY FIND ARTICLES
  277.  
  278.      Thi≤ optioε i≤ simila≥ t∩ optioε 3«  It≤ majo≥ ì
  279. advantagσ i≤ speed«  Optioε 4¼ however¼ ha≤ somσ ì
  280. disadvantage≤ ove≥ optioε 3«  Thesσ arσ tha⌠ optioε ┤ wil∞ ì
  281. onlyô finΣ article≤ wherσ thσ entereΣ author'≤ name¼ ke∙ ì
  282. word,orô thσ firs⌠ 2░ character≤ oµ thσ sourcσ arσ firstô iε ì
  283. thσ databasσ filσ records«  Iµ thσ use≥ want≤ t∩ looδ fo≥ ì
  284. article≤ wherσ ß particula≥ autho≥ i≤ thσ firs⌠ autho≥ thi≤ ì
  285. optioε wil∞ bσ u≡ t∩ 1░ time≤ fasterô (dependinτ oε thσ sizσ ì
  286. oµ thσ database⌐ thaε optioε threσ iε findinτ thσ citations«  ì
  287. Thσ othe≥ disadvantagσ oµ thi≤ optioε i≤ tha⌠ i⌠ require≤ ì
  288. tha⌠ thσ databasσ bσ indexeΣ oε authors¼ source¼ anΣ ke∙ ì
  289. words«  Creatioε oµ thesσ inde° file≤ require≤ usσ oµ disδ ì
  290. storagσ spacσ whicΦ iε turε wil∞ limi⌠ thσ sizσ oµ thσ ì
  291. databasσ tha⌠ thσ use≥ i≤ ablσ t∩ create«  A≤ aε example¼ a⌠ ì
  292. thσ timσ oµ thi≤ manual'≤ preparatioε thσ origina∞ ì
  293. R+E+T+R+I+E+V+┼ databasσ containeΣ 104│ record≤ whicΦ ì
  294. requireΣ 159╦ oµ disδ storagσ anΣ eacΦ oµ thσ inde° file≤ ì
  295. (AUTHORS.NDX¼ SOURCE.NDX¼ anΣ KWORDS.NDX⌐ requireΣ ì
  296. approximatel∙ 150╦ oµ disδ space«  Therefore¼ iµ thσ inde° ì
  297. file≤ werσ eliminateΣ REFS.DB╞ coulΣ bσ increaseΣ b∙ ì
  298.  pproximatel∙ 300░ record≤ anΣ occup∙ thσ samσ amoun⌠ oµ ì
  299. spacσ oε thσ origina∞ R+E+T+R+I+E+V+┼ storagσ diskettσ ì
  300. (whicΦ wa≤ ß double-sided¼ double-densit∙ 8-incΦ diskettσ ì
  301. providinτ onσ mega-bytσ oµ storage)«  Thσ followinτ show≤ aε ì
  302. example║ 
  303.  
  304.                      *** REFS.DBF CONTAINS 1043 RECORDS ***
  305.  
  306. *** WARNING: This program finds only EXACT matches to the substring entered ***
  307. * Files are indexed by first author,  first 20 chrs of source, first key word *
  308. * Therefore,  this program  will  only find records  where  an author  is the *è* first author, or where a key word is the first key word, etc.!!!!           *
  309.  
  310.                          POSSIBLE FIELDS TO SEARCH ON:
  311.  
  312.                           (1) AUTHORS   (3) KEY WORDS
  313.                           (2) SOURCE
  314.  
  315.                  _____________________________________________
  316.  
  317.                          ** ENTER SEARCH INFORMATION **
  318.  
  319.          FIELD TO SEARCH ON (1-3) :1:
  320.  
  321.          SUBSTRING TO LOCATE :Lathrop                                 :
  322.  
  323.                      DO YOU WANT RESULTS PRINTED? (Y/N) :y:
  324.  
  325. -----------------------
  326.  
  327.            REF. NO. : L0001
  328.           AUTHOR(S) : Lathrop, D.A., Bailey, J.C.
  329.               TITLE : Lack of electrical interaction between
  330.                       proximal bundle branches and subjacent
  331.                       muscle.
  332.              SOURCE : J. Appl. Physiol. 42(2):235-239, 1977
  333.           KEY WORDS : electrotonus - excitability - bundle of
  334.                       His - His-Purkinje system
  335.  
  336.  
  337. OPTION 5 - LOCATE ARTICLES & MAKE TEXT FILE
  338.  
  339.  
  340.  
  341. OPTION 6 - RE-INDEX ARTICLES
  342.  
  343.      Thi≤ optioε provide≤ aε eas∙ mean≤ t∩ re-inde° thσ datß ì
  344. basσ oε firs⌠ author'≤ name¼ source¼ anΣ firs⌠ ke∙ word«  
  345.  
  346.      *¬ NOT┼ *¬ Re-indexinτ i≤ requireΣ wheε ne≈ citation≤ ì
  347. arσ addeΣ t∩ thσ databasσ iε orde≥ fo≥ optioε ┤ t∩ functioε ì
  348. correctly«  
  349.  
  350.      *¬ IMPORTAN╘ *¬ Thi≤ optioε shoulΣ onl∙ bσ useΣ iµ thσ ì
  351. use≥ intend≤ t∩ usσ optioε ┤ (seσ explanatioε iε descriptioε ì
  352. oµ optioε 4).
  353.  
  354.  
  355.  
  356. OPTIO╬ 7 - MAK┼ LABEL╙ FO╥ ARTICLES
  357.  
  358.      Thi≤ optioε provide≤ thσ use≥ witΦ label≤ whicΦ ma∙ bσ ì
  359. affixeΣ t∩ thσ origina∞ referencσ articlσ fo≥ filinτ ì
  360. purposes«  EacΦ labe∞ wil∞ identif∙ thσ owne≥ oµ thσ ì
  361. article¼ thσ assigneΣ referencσ numbe≥ anΣ ke∙ word≤ unde≥ ì
  362. whicΦ thσ citatioε i≤ fileΣ iε thσ databasσ (REFS.DBF)«  ìèBelo≈ i≤ aε examplσ oµ thσ label≤ produceΣ b∙ usσ oµ thi≤ ì
  363. option:
  364.  
  365.  
  366. OPTIO╬ 8 - EDI╘ DATABAS┼ RECORDS
  367.  
  368.      Optioε ╖ allow≤ thσ use≥ ß convenien⌠ wa∙ t∩ edi⌠ ì
  369. specifiπ databasσ record≤ afte≥ the∙ havσ beeε entered«  ┴ ì
  370. specifiπ recorΣ ma∙ bσ locateΣ withiε thσ databasσ b∙ ì
  371. searchinτ fo≥ i⌠ b∙ it≤ referencσ number¼ autho≥ string¼ ì
  372. titlσ string¼ o≥ sourcσ string«  Usuall∙ thσ use≥ wil∞ kno≈ ì
  373. thσ aggigneΣ referencσ numbe≥ oµ thσ databasσ recorΣ tha⌠ ì
  374. he/shσ desire≤ t∩ edit╗ therefore¼ thi≤ i≤ thσ program'≤ ì
  375. defaul⌠ modσ fo≥ locatinτ records.
  376.  
  377.      *¬ NOT┼ *¬  Iµ morσ thaε onσ recorΣ ha≤ thσ samσ ì
  378. referencσ number¼ al∞ oµ thesσ record≤ wil∞ bσ located.
  379.  
  380.      Oncσ locateΣ thσ recorΣ ma∙ bσ editeΣ o≥ markeΣ fo≥ ì
  381. deletion«  Iµ editeΣ thσ olΣ recorΣ wil∞ bσ writteε ove≥ ì
  382. witΦ thσ ne≈ information╗ i.e« ß ne≈ recorΣ wil∞ no⌠ bσ ì
  383. appendeΣ t∩ thσ file«  Iµ thσ use≥ choose≤ t∩ marδ thσ ì
  384. recorΣ fo≥ deletion¼ thσ recorΣ wil∞ no⌠ bσ permanentl∙ ì
  385. deleteΣ unti∞ thσ filσ i≤ PACKE─ (seσ you≥ dBAS┼ II¬ user'≤ ì
  386. manual)«  
  387.  
  388.      Finally¼ thσ prograφ wil∞ promp⌠ thσ use≥ witΦ ß ì
  389. questioε askinτ iµ he/shσ want≤ t∩ permanentl∙ removσ thσ ì
  390. markeΣ file≤ froφ thσ datß base«  Iµ thσ use≥ answer≤ ì
  391. affirmativel∙ t∩ thi≤ questioε thσ filσ wil∞ bσ PACKE─ anΣ ì
  392. al∞ thσ record≤ markeΣ fo≥ deletioε wil∞ bσ removeΣ froφ thσ ì
  393. fileí 
  394.  
  395.      *¬ IMPORTAN╘ *¬  Afte≥ thσ databasσ ha≤ beeε PACKE─ thσ ì
  396. deleteΣ record≤ ma∙ neve≥ bσ recovered-- the∙ arσ GONEí   Bσ ì
  397. carefu∞ wheε usinτ thi≤ option.
  398.  
  399.  
  400.  
  401.           ********¬ *********¬ ********¬ *********
  402.           ********¬ *********¬ ********¬ *********
  403.  
  404.      Yo⌡ arσ no≈ read∙ t∩ experimen⌠ witΦ R+E+T+R+I+E+V+E«  ì
  405. ╔ hopσ tha⌠ yo⌡ wil∞ enjo∙ usinτ thσ systeφ anΣ tha⌠ i⌠ wil∞ ì
  406. hel≡ yo⌡ t∩ maintaiε ß completσ filσ oµ you≥ referencσ ì
  407. articlσ citations¼ n∩ matte≥ wha⌠ you≥ area≤ oµ interestí  
  408.  
  409.  
  410. --------------------
  411. * dBASE II* was developed and is distributed by,
  412.   Ashton-Tate, Culver City, California
  413. ENU PROGRAM:
  414.  
  415.  
  416. NOTE  -dBASE II EXECUTIVE COMMAND FILE <RETRIEVE.CMD>
  417. ERASE
  418. SET TALK OFF
  419. STORE 'mm/dd/yy' TO M:DATE
  420. STORE T TO NODATE
  421. STORE ' ' TO DR
  422. @  2,33 SAY 'R+E+T+R+I+E+V+E'
  423. @ 12,40 SAY 'BY'
  424. @ 14,29 SAY 'David A. Lathrop'
  425. @ 16,27 SAY '-- COPYRIGHTED (C) 1983 --'
  426. @ 17,26 SAY '-- Data Based ADVISOR --'
  427. DO WHILE NODATE
  428.   @ 5,24 SAY 'ENTER DATE (mm/dd/yy) ' GET M:DATE PICTURE;
  429.      '99/99/99'
  430.   READ
  431.   IF VAL($(M:DATE,1,2))<1;
  432.     .OR. VAL($(M:DATE,1,2))>12;
  433.     .OR. VAL($(M:DATE,4,2))<1;
  434.     .OR. VAL($(M:DATE,4,2))>31;
  435.     .OR. VAL($(M:DATE,7,2))<83
  436.     STORE 'mm/dd/yy' TO M:DATE
  437.     @ 7,21 SAY '**** BAD DATE -- PLEASE RE-ENTER. ****'
  438.     STORE T TO NODATE
  439.   ELSE
  440.     STORE F TO NODATE
  441.   ENDIF
  442. ENDDO
  443. SET DATE TO &M:DATE
  444. @ 5,23 SAY '                                 '
  445. @ 7,20 SAY '                                        '
  446. @ 9,20 SAY 'ENTER STORAGE DISK DRIVE LETTER ';
  447.   GET DR PICTURE 'A'
  448. READ
  449. STORE DR+':REFS' TO FILE1
  450. DO WHILE T
  451.   ERASE
  452.   ?
  453.   ? '                       ***  R+E+T+R+I+E+V+E MENU  ***'
  454.   ?
  455.   ? '                         0 - EXIT'
  456.   ? '                         1 - ENTER NEW ARTICLES'
  457.   ? '                         2 - ENTER NEW ARTICLES WITH'
  458.   ? '                             (AUTOMATIC REFERENCE';
  459.     ' NUMBERING)'
  460.   ? '                         3 - FIND ARTICLES'
  461.   ? '                         4 - QUICKLY FIND ARTICLES'
  462.   ? '                             (BY FIRST AUTHOR, FIRST';
  463.    ' KEY WORD,'è  ? '                              OR FIRST 20 LTRS OF';
  464.    ' SOURCE)'
  465.   ? '                         5 - RE-INDEX FILES'
  466.   ? '                         6 - MAKE LABELS FOR ARTICLES'
  467.   ? '                         7 - EDIT DATA BASE RECORDS'
  468.   ?
  469.   ?
  470.   ?
  471.   ?
  472.   ?
  473.   ?
  474.   ?
  475.   ? 'ENTER DESIRED ACTION'
  476. WAIT TO ACTION
  477. DO CASE
  478.   CASE ACTION='0'
  479.     ERASE
  480.     USE &FILE1
  481.     GO BOTTOM
  482.     STORE STR(#,6) TO REC:NO
  483.     @ 2,19 SAY '*** REFS.DBF NOW CONTAINS '-REC:NO+;
  484.       ' RECORDS ***'
  485.     @ 16,1 SAY ' '
  486.     SET TALK ON
  487.     QUIT
  488.   CASE ACTION='1'
  489.     DO NEWENTRY
  490.   CASE ACTION='2'
  491.     DO AUTONUMB
  492.   CASE ACTION='3'
  493.     DO FIND
  494.   CASE ACTION='4'
  495.     DO FASTFIND
  496.   CASE ACTION='5'
  497.     DO INDEX
  498.   CASE ACTION='6'
  499.     DO LABEL
  500.   CASE ACTION='7'
  501.     DO EDIT
  502.   OTHERWISE
  503.     ? '**** Invalid response, re-enter ****'
  504.   ENDCASE
  505. ENDDO
  506. RETURN
  507.  
  508.  
  509. LISTING OF OPTION 1 PROGRAM:
  510.  
  511. NOTE  - EXTENDED COMMAND FILE <NEWENTRY.CMD>
  512. USE &FILE1
  513. GO BOTTOM
  514. DO WHILE T
  515.   STORE '     ' TO REF
  516.   STORE '                                        ' TO AU1
  517.   STORE '                                        ' TO AU2
  518.   STORE '                                        ' TO TI1
  519.   STORE '                                        ' TO TI2
  520.   STORE '                                        ' TO TI3
  521.   STORE '                                        ' TO TI4
  522.   STORE '                                        ' TO SO1
  523.   STORE '                                        ' TO SO2
  524.   STORE '                                        ' TO KW1
  525.   STORE '                                        ' TO KW2
  526.   ERASE
  527.   @  3,25 SAY 'REPRINT INFORMATION ENTRY FORM'
  528.   @  5,26 SAY '** WANT TO CONTINUE? (Y/N) **'
  529.   @  22,1 SAY ' '
  530.   WAIT TO CONTINUE
  531.   IF !(CONTINUE)='N'
  532.     RELEAS┼ CONTINUE,REF,AU1,AU2,AU3,TI1,TI2,TI3,TI4,TI5,;
  533.       SO1,SO2,SO3,KW1,KW2,KW3
  534.     RETURN
  535.   ENDIF
  536.   @  5,26 SAY '                              '
  537.   @  23,0 SAY '                    '
  538.   @  7,14 SAY 'REF. NO. ' GET REF PICTURE 'AX999'
  539.   @  9,15 SAY 'AUTHORS ' GET AU1 PICTURE;
  540.     'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  541.   @ 10,22 SAY ' ' GET AU2 PICTURE;
  542.     'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  543.   @ 12,17 SAY 'TITLE ' GET TI1 PICTURE;
  544.     'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  545.   @ 13,22 SAY ' ' GET TI2 PICTURE;
  546.     'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  547.   @ 14,22 SAY ' ' GET TI3 PICTURE;
  548.     'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  549.   @ 15,22 SAY ' ' GET TI4 PICTURE;
  550.     'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  551.   @ 17,16 SAY 'SOURCE ' GET SO1 PICTURE;
  552.     'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  553.   @ 18,22 SAY ' ' GET SO2 PICTURE;
  554.     'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  555.   @ 20,13 SAY 'KEY WORDS ' GET KW1 PICTURE;
  556.     'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  557.   @ 21,22 SAY ' ' GET KW2 PICTURE;
  558.     'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  559.   READ
  560.     STORE AU1+AU2 TO AU3
  561.     STORE TI1+TI2+TI3+TI4 TO TI5è    STORE SO1+SO2 TO SO3
  562.     STORE KW1+KW2 TO KW3
  563.     APPEND BLANK
  564.     REPLACE REF:NO WITH REF, AUTHORS WITH AU3,;
  565.       TITLE WITH TI5,SOURCE WITH SO3, KWORDS WITH KW3
  566. ENDDO
  567.  
  568.  
  569. LISTING OF OPTION 2 PROGRAM:
  570.  
  571. NOTE  - EXTENDED COMMAND FILE <AUTONUMB.CMD>
  572. ERASE
  573. USE &FILE1
  574. DO WHILE T
  575.   STORE 'Y' TO CONTINUE
  576.   STORE '     ' TO REF
  577.   STORE '                                        ' TO AU1
  578.   STORE '                                        ' TO AU2
  579.   STORE '                                        ' TO TI1
  580.   STORE '                                        ' TO TI2
  581.   STORE '                                        ' TO TI3
  582.   STORE '                                        ' TO TI4
  583.   STORE '                                        ' TO SO1
  584.   STORE '                                        ' TO SO2
  585.   STORE '                                        ' TO KW1
  586.   STORE '                                        ' TO KW2
  587.   ERASE
  588.   @  3,25 SAY 'REPRINT INFORMATION ENTRY FORM'
  589.   @  7,15 SAY 'AUTHORS ' GET AU1 PICTURE;
  590.    'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  591.   @  8,22 SAY ' ' GET AU2 PICTURE;
  592.    'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  593.   @ 10,17 SAY 'TITLE ' GET TI1 PICTURE;
  594.    'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  595.   @ 11,22 SAY ' ' GET TI2 PICTURE;
  596.    'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  597.   @ 12,22 SAY ' ' GET TI3 PICTURE;
  598.    'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  599.   @ 13,22 SAY ' ' GET TI4 PICTURE;
  600.    'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  601.   @ 15,16 SAY 'SOURCE ' GET SO1 PICTURE;
  602.    'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  603.   @ 16,22 SAY ' ' GET SO2 PICTURE;
  604.    'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  605.   @ 18,13 SAY 'KEY WORDS ' GET KW1 PICTURE;
  606.    'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  607.   @ 19,22 SAY ' ' GET KW2 PICTURE;
  608.    'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  609.   READ
  610.   STORE $(AU1,1,1) TO SEARCH
  611.   FIND &SEARCH
  612.   STORE T TO AGAIN
  613.   DO WHILE AGAIN
  614.   IF !(SEARCH)$!(REF:NO)
  615.     STORE VAL($(REF:NO,3,3)) TO NUMBER
  616.     STORE NUMBER+1 TO NUMBER
  617.     SKIP
  618.     IF !(SEARCH)$!(REF:NO)
  619.       STORE T TO AGAIN
  620.     ELSE
  621.       STORE F TO AGAINè    ENDIF
  622.     IF EOF
  623.       STORE F TO AGAIN
  624.     ENDIF
  625.   ENDDO
  626.   GO BOTTOM
  627.   APPEND BLANK
  628.   STORE SEARCH+STR(NUMBER,4) TO REF
  629.   @ 21,14 SAY 'REF. NO. :'+REF+':'
  630.   STORE AU1+AU2 TO AU3
  631.   STORE TI1+TI2+TI3+TI4 TO TI5
  632.   STORE SO1+SO2 TO SO3
  633.   STORE KW1+KW2 TO KW3
  634.   REPLACE REF:NO WITH REF
  635.   REPLACE AUTHORS WITH AU3 
  636.   REPLACE TITLE WITH TI5
  637.   REPLACE SOURCE WITH SO3 
  638.   REPLACE KWORDS WITH KW3
  639.   STORE 5 TO L
  640.   DO WHILE L<21
  641.     @ L,13 SAY '                                                        '
  642.     STORE L+1 TO L
  643.   ENDDO
  644.   @ 10,26 SAY 'WANT TO CONTINUE? (Y/N) ' GET;
  645.    CONTINUE PICTURE 'A'
  646.   READ
  647.   IF !(CONTINUE)='N'
  648.     RELEASE CONTINUE,REF,AU1,AU2,AU3,TI1,TI2,TI3,TI4,TI5,;
  649.      SO1,SO2,SO3,KW1,KW2,KW3
  650.     RETURN
  651.   ENDIF
  652. ENDDO
  653.  
  654.  
  655. LISTING OF OPTION 3 PROGRAM:
  656.  
  657. NOTE  - EXTENDED COMMAND FILE <FIND.CMD>
  658. USE &FILE1
  659. GO BOTTOM
  660. STORE STR(#,4) TO REC:NO
  661. STORE TRIM(REC:NO) TO REC:NO
  662. STORE '*** REFS.DBF CONTAINS '+REC:NO+' RECORDS ***';
  663.    TO MESSAGE
  664. STORE 40-(LEN(MESSAGE)/2) TO COLUMN
  665. ERASE
  666. @  4,COLUMN SAY MESSAGE
  667. @  6,24 SAY 'EACH RECORD CONSISTS OF 5 FIELDS:'
  668. @  8,28 SAY '(1) REF:NO    (4) SOURCE'
  669. @  9,28 SAY '(2) AUTHORS   (5) KWORDS'
  670. @ 10,28 SAY '(3) TITLE'
  671. STORE ' ' TO FLD1
  672. STORE ' ' TO FLD2
  673. STORE ' ' TO FLD3
  674. STORE '               ' TO SSTR1
  675. STORE '               ' TO SSTR2
  676. STORE '               ' TO SSTR3
  677. STORE 'N' TO PRINT
  678. @ 12,20 SAY '________________________________________'
  679. @ 14,25 SAY '** ENTER SEARCH INFORMATION **'
  680. @ 16,6  SAY '1st FIELD TO SEARCH ON (1-5) ' GET FLD1;
  681.  PICTURE '9'
  682. @ 16,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR1 PICTURE;
  683.  'XXXXXXXXXXXXXXX'
  684. @ 17,6  SAY '2nd FIELD TO SEARCH ON (1-5) ' GET FLD2;
  685.   PICTURE '9'
  686. @ 17,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR2 PICTURE;
  687.  'XXXXXXXXXXXXXXX'
  688. @ 18,6  SAY '3rd FIELD TO SEARCH ON (1-5) ' GET FLD3;
  689.  PICTURE '9'
  690. @ 18,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR3 PICTURE;
  691.  'XXXXXXXXXXXXXXX'
  692. @ 20,22 SAY 'DO YOU WANT RESULTS PRINTED? (Y/N) ';
  693.  GET PRINT PICTURE 'A'
  694. READ
  695. IF FLD1='1'
  696.   STORE 'REF:NO' TO FLD1
  697. ELSE
  698.   IF FLD1='2'
  699.     STORE 'AUTHORS' TO FLD1
  700.   ELSE
  701.     IF FLD1='3'
  702.       STORE 'TITLE' TO FLD1
  703.     ELSE
  704.       IF FLD1='4'
  705.         STORE 'SOURCE' TO FLD1
  706.       ELSE
  707.         IF FLD1='5'è          STORE 'KWORDS' TO FLD1
  708.         ENDIF
  709.       ENDIF
  710.     ENDIF
  711.   ENDIF
  712. ENDIF
  713. IF FLD2='1'
  714.   STORE 'REF:NO' TO FLD2
  715. ELSE
  716.   IF FLD2='2'
  717.     STORE 'AUTHORS' TO FLD2
  718.   ELSE
  719.     IF FLD2='3'
  720.       STORE 'TITLE' TO FLD2
  721.     ELSE
  722.       IF FLD2='4'
  723.         STORE 'SOURCE' TO FLD2
  724.       ELSE
  725.         IF FLD2='5'
  726.           STORE 'KWORDS' TO FLD2
  727.         ENDIF
  728.       ENDIF
  729.     ENDIF
  730.   ENDIF
  731. ENDIF
  732. IF FLD3='1'
  733.   STORE 'REF:NO' TO FLD3
  734. ELSE
  735.   IF FLD3='2'
  736.     STORE 'AUTHORS' TO FLD3
  737.     ELSE
  738.       IF FLD3='3'
  739.         STORE 'TITLE' TO FLD3
  740.         ELSE
  741.           IF FLD3='4'
  742.             STORE 'SOURCE' TO FLD3
  743.             ELSE
  744.               IF FLD3='5'
  745.               STORE 'KWORDS' TO FLD LABELS ' GET B:REF;
  746.                 PICTURE 'X'
  747.               READ
  748.  
  749. @ 18,19 SAY 'ENTER NUMBER OF LAST '+!(B:REF)+'-ARTICLE;
  750.    LABELED ' GET REF PICTURE '9999'
  751. READ
  752. @ 20,27 SAY '** PRINTER READY? (Y/N) **'
  753. @ 22,1  SAY ' '
  754. WAIT TO CONTINUE
  755. IF !(CONTINUE)='N'
  756.   RETURN
  757. ENDIF
  758. @ 20,27 SAY '                                     '
  759. @ 23,0  SAY '                                '
  760. @ 20,29 SAY '** LOCATING RECORDS **'
  761. LOCATE FOR !(B:REF)$REF:NO .AND. !(REF)$REF:NOèSET FORMAT TO PRINT
  762. SET EJECT OFF
  763. DO WHILE .NOT. EOF
  764.   STORE $(KWORDS,1,40) TO KW1
  765.   STORE $(KWORDS,41,40) TO KW2
  766.   @ LINE,17 SAY M:NAME USING;
  767.     'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  768.   STORE LINE+2 TO LINE
  769.   @ LINE,1 SAY 'REF. NO.: '+REF:NO USING 'XXXXXXXXXXXXXXX'
  770.   STORE LINE+1 TO LINE
  771.   @ LINE,1 SAY KW1
  772.   IF KW2<>' '
  773.     STORE LINE+1 TO LINE
  774.     @ LINE,1 SAY KW2
  775.     STORE LINE+5 TO LINE
  776.   ENDIF
  777.   IF KW2=' '
  778.     STORE LINE+6 TO LINE
  779.   ENDIF
  780.   CONTINUE
  781. ENDDO
  782. @ LINE+1,1 SAY ' '
  783. RELEASE B:REF,REF,M:NAME,CONTINUE
  784. SET FORMAT TO SCREEN
  785. RETURN
  786.  
  787.  
  788. LISTING OF OPTION 4 PROGRAM:
  789.  
  790. NOTE  - EXTENDED COMMAND FILE <FASTFIND.CMD>
  791. USE &FILE1
  792. GO BOTTOM
  793. STORE STR(#,4) TO REC:NO
  794. STORE TRIM(REC:NO) TO REC:NO
  795. STORE '*** REFS.DBF CONTAINS '+REC:NO+' RECORDS ***';
  796.  TO MESSAGE
  797. STORE 40-(LEN(MESSAGE)/2) TO COLUMN
  798. ERASE
  799. @  1,COLUMN SAY MESSAGE
  800. @  3,1  SAY 'WARNING: This program finds only EXACT ';
  801.  'matches to the substring entered ***'
  802. @  4,1  SAY '* Files are indexed by first author,  first ';
  803.  '20 chrs of source, first key word *'
  804. @  5,1  SAY '* Therefore,  this program  will  only find ';
  805.  'records  where  an author is  the *'
  806. @  6,1  SAY '* first author, or where a key word is the ';
  807.  'first key word!!!!                 *'
  808. @  8,26 SAY '** WANT TO CONTINUE? (Y/N) **'
  809. @ 22,1  SAY ' '
  810. WAIT TO CONTINUE
  811. IF !(CONTINUE)='N'
  812.   RETURN
  813. ENDIF
  814. @  8,26 SAY '                              '
  815. @ 23,0  SAY '                      '
  816. @  8,26 SAY 'POSSIBLE FIELDS TO SEARCH ON:'
  817. @ 10,27 SAY '(1) AUTHORS   (3) KEY WORDS'
  818. @ 11,27 SAY '(2) SOURCE'
  819. STORE ' ' TO FLD
  820. STORE '                                         ' TO SSTR
  821. STORE 'N' TO PRINT
  822. @ 13,20 SAY '________________________________________'
  823. @ 15,25 SAY '** ENTER SEARCH INFORMATION **'
  824. @ 17,10 SAY 'FIELD TO SEARCH ON (1-3) ' GET FLD PICTURE '9'
  825. @ 19,10 SAY 'SUBSTRING TO LOCATE ' GET SSTR PICTURE ;
  826.   'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  827. @ 21,22 SAY 'DO YOU WANT RESULTS PRINTED? (Y/N) ';
  828.  GET PRINT PICTURE 'A'
  829. READ
  830. IF FLD='1'
  831.   STORE 'AUTHORS' TO FLD
  832. ELSE
  833.   IF FLD='2'
  834.     STORE 'SOURCE' TO FLD
  835.   ELSE
  836.     IF FLD='3'
  837.       STORE 'KWORDS' TO FLD
  838.     ENDIF
  839.   ENDIF
  840. ENDIFèSTORE DR+':'+FLD TO FLD1
  841. STORE TRIM(SSTR) TO SSTR
  842. @ 21,22 SAY '                                          '
  843. @ 21,27 SAY '*** LOCATING RECORD(S) ***'
  844. USE &FILE1 INDEX &FLD1
  845. FIND &SSTR
  846. STORE T TO AGAIN
  847. IF !(PRINT)='Y'
  848.   ERASE
  849.   @ 11,23 SAY '*** MAKE SURE PRINTER IS READY ***'
  850.   @ 13,24 SAY '*** PRESS ANY KEY TO CONTINUE ***'
  851.   @ 22,1 SAY ' '
  852.   WAIT
  853.   ERASE
  854.   @ 12,31 SAY '**** SEARCHING ****'
  855.   @ 22,1  SAY ' '
  856.   STORE 5 TO LINE
  857.   SET FORMAT TO PRINT
  858.   SET EJECT OFF
  859.   DO WHILE AGAIN
  860.     IF !(SSTR)$!(&FLD)
  861.       STORE $(AUTHORS,1,40) TO AU1
  862.       STORE $(AUTHORS,41,40) TO AU2
  863.       STORE $(TITLE,1,40) TO TI1
  864.       STORE $(TITLE,41,40) TO TI2
  865.       STORE $(TITLE,81,40) TO TI3
  866.       STORE $(TITLE,121,40) TO TI4
  867.       STORE $(SOURCE,1,40) TO SO1
  868.       STORE $(SOURCE,41,40) TO SO2
  869.       STORE $(KWORDS,1,40) TO KW1
  870.       STORE $(KWORDS,41,40) TO KW2
  871.       @ LINE,14 SAY 'REF. NO.: '+REF:NO USING;
  872.        'XXXXXXXXXXXXXXX'
  873.       STORE LINE+1 TO LINE
  874.       @ LINE,13 SAY 'AUTHOR(S): '+AU1 USING;
  875.        'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  876.       IF AU2<>' '
  877.         STORE LINE+1 TO LINE
  878.         @ LINE,24 SAY AU2 USING;
  879.          'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  880.       ENDIF
  881.       STORE LINE+1 TO LINE
  882.       @ LINE,17 SAY 'TITLE: '+TI1 USING;
  883.        'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  884.       IF TI2<>' '
  885.         STORE LINE+1 TO LINE
  886.         @ LINE,24 SAY TI2 USING;
  887.          'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  888.         IF TI3<>' '
  889.           STORE LINE+1 TO LINE
  890.           @ LINE,24 SAY TI3 USING;
  891.            'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  892.           IF TI4<>' '
  893.             STORE LINE+1 TO LINE
  894.             @ LINE,24 SAY TI4 USING;è             'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  895.           ENDIF
  896.         ENDIF
  897.       ENDIF
  898.       STORE LINE+1 TO LINE
  899.       @ LINE,16 SAY 'SOURCE: '+SO1 USING;
  900.        'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  901.       IF SO2<>' '
  902.         STORE LINE+1 TO LINE
  903.         @ LINE,24 SAY SO2 USING;
  904.          'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  905.       ENDIF
  906.       STORE LINE+1 TO LINE
  907.       @ LINE,13 SAY 'KEY WORDS: '+KW1 USING;
  908.        'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  909.       IF KW2<>' '
  910.         STORE LINE+1 TO LINE
  911.         @ LINE,24 SAY KW2 USING;
  912.          'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  913.       ENDIF
  914.       STORE LINE+2 TO LINE
  915.       IF LINE=55 .OR. LINE>55
  916.         SET EJECT ON
  917.         EJECT
  918.         STORE 5 TO LINE
  919.       ENDIF
  920.     ENDIF
  921.     SKIP
  922.     IF !(SSTR)$!(&FLD)
  923.       STORE T TO AGAIN
  924.     ELSE
  925.       STORE F TO AGAIN
  926.     ENDIF
  927.   ENDDO
  928.   @ 60,1 SAY ' '
  929.   SET FORMAT TO SCREEN
  930.   ERASE
  931.   @ 11,21 SAY '************** FINISHED ***************'
  932.   @ 13,21 SAY '*** PRESS ANY KEY TO RETURN TO MENU ***'
  933.   @ 22,1  SAY ' '
  934.   WAIT
  935.   RETURN
  936. ENDIF
  937. STORE 1 TO LINE
  938. DO WHILE AGAIN
  939.   IF !(SSTR)$!(&FLD)
  940.     STORE $(AUTHORS,1,40) TO AU1
  941.     STORE $(AUTHORS,41,40) TO AU2
  942.     STORE $(TITLE,1,40) TO TI1
  943.     STORE $(TITLE,41,40) TO TI2
  944.     STORE $(TITLE,81,40) TO TI3
  945.     STORE $(TITLE,121,40) TO TI4
  946.     STORE $(SOURCE,1,40) TO SO1
  947.     STORE $(SOURCE,41,40) TO SO2
  948.     STORE $(KWORDS,1,40) TO KW1è    STORE $(KWORDS,41,40) TO KW2
  949.     ERASE
  950.     @ LINE,14 SAY 'REF. NO.: '+REF:NO
  951.     STORE LINE+1 TO LINE
  952.     @ LINE,13 SAY 'AUTHOR(S): '+AU1
  953.     IF AU2<>' '
  954.     STORE LINE+1 TO LINE
  955.     @ LINE,24 SAY AU2
  956.   ENDIF
  957.   STORE LINE+1 TO LINE
  958.   @ LINE,17 SAY 'TITLE: '+TI1
  959.   IF TI2<>' '
  960.     STORE LINE+1 TO LINE
  961.     @ LINE,24 SAY TI2
  962.     IF TI3<>' '
  963.       STORE LINE+1 TO LINE
  964.       @ LINE,24 SAY TI3
  965.       IF TI4<>' '
  966.         STORE LINE+1 TO LINE
  967.         @ LINE,24 SAY TI4
  968.       ENDIF
  969.     ENDIF
  970.   ENDIF
  971.   STORE LINE+1 TO LINE
  972.   @ LINE,16 SAY 'SOURCE: '+SO1
  973.   IF SO2<>' '
  974.     STORE LINE+1 TO LINE
  975.     @ LINE,24 SAY SO2
  976.   ENDIF
  977.   STORE LINE+1 TO LINE
  978.   @ LINE,13 SAY 'KEY WORDS: '+KW1
  979.   IF KW2<>' '
  980.     STORE LINE+1 TO LINE
  981.     @ LINE,24 SAY KW2
  982.   ENDIF
  983.   STORE LINE+2 TO LINE
  984.   IF LINE=5 .OR. LINE>5
  985.     @ 14,26 SAY '** WANT TO CONTINUE? (Y/N) **'
  986.     @ 22,1  SAY ' '
  987.     WAIT TO CONTINUE
  988.     IF !(CONTINUE)='N'
  989.       RETURN
  990.     ENDIF
  991.     STORE 1 TO LINE
  992.   ENDIF
  993. ENDIF
  994. ERASE
  995. @ 12,31 SAY '**** SEARCHING ****'
  996. SKIP
  997. IF !(SSTR)$!(&FLD)
  998.   STORE T TO AGAIN
  999. ELSE
  1000.   STORE F TO AGAIN
  1001. ENDIF
  1002. ENDDOè@ 20,21 SAY '************** FINISHED ***************'
  1003. @ 21,21 SAY '*** PRESS ANY KEY TO RETURN TO MENU ***'
  1004. @ 22,1  SAY ' '
  1005. WAIT
  1006. USE
  1007. RELEASE REC:NO,MESSAGE,COLUMN,FLD,SSTR,PRINT,CONTINUE,FLD1
  1008. RETURN
  1009.  
  1010.  
  1011. LISTING OF OPTION 5 PROGRAM:
  1012.  
  1013. NOTE  - EXTENDED COMMAND FILE <TEXT.CMD>
  1014. USE &FILE1
  1015. GO BOTTOM
  1016. STORE '                    ' TO NAME
  1017. STORE STR(#,4) TO REC:NO
  1018. STORE TRIM(REC:NO) TO REC:NO
  1019. STORE '*** REFS.DBF CONTAINS '+REC:NO+' RECORDS ***';
  1020.  TO MESSAGE
  1021. STORE 40-(LEN(MESSAGE)/2) TO COLUMN
  1022. ERASE
  1023. @  4,COLUMN SAY MESSAGE
  1024. @  6,24 SAY 'EACH RECORD CONSISTS OF 5 FIELDS:'
  1025. @  8,28 SAY '(1) REF:NO    (4) SOURCE'
  1026. @  9,28 SAY '(2) AUTHORS   (5) KWORDS'
  1027. @ 10,28 SAY '(3) TITLE'
  1028. STORE ' ' TO FLD1
  1029. STORE ' ' TO FLD2
  1030. STORE ' ' TO FLD3
  1031. STORE '               ' TO SSTR1
  1032. STORE '               ' TO SSTR2
  1033. STORE '               ' TO SSTR3
  1034. STORE 'N' TO PRINT
  1035. @ 12,20 SAY '________________________________________'
  1036. @ 14,25 SAY '** ENTER SEARCH INFORMATION **'
  1037. @ 16,6  SAY '1st FIELD TO SEARCH ON (1-5) ';
  1038.  GET FLD1 PICTURE '9'
  1039. @ 16,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR1 PICTURE;
  1040.  'XXXXXXXXXXXXXXX'
  1041. @ 17,6  SAY '2nd FIELD TO SEARCH ON (1-5) ';
  1042.  GET FLD2 PICTURE '9'
  1043. @ 17,40 SAY 'SUBSTRING TO LOCATE ';
  1044.  GET SSTR2 PICTURE 'XXXXXXXXXXXXXXX'
  1045. @ 18,6  SAY '3rd FIELD TO SEARCH ON (1-5) ';
  1046.  GET FLD3 PICTURE '9'
  1047. @ 18,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR3 PICTURE;
  1048.  'XXXXXXXXXXXXXXX'
  1049. READ
  1050. IF FLD1='1'
  1051.   STORE 'REF:NO' TO FLD1
  1052. ELSE
  1053.   IF FLD1='2'
  1054.     STORE 'AUTHORS' TO FLD1
  1055.   ELSE
  1056.     IF FLD1='3'
  1057.       STORE 'TITLE' TO FLD1
  1058.     ELSE
  1059.       IF FLD1='4'
  1060.         STORE 'SOURCE' TO FLD1
  1061.       ELSE
  1062.         IF FLD1='5'
  1063.           STORE 'KWORDS' TO FLD1è        ENDIF
  1064.       ENDIF
  1065.     ENDIF
  1066.   ENDIF
  1067. ENDIF
  1068. IF FLD2='1'
  1069.   STORE 'REF:NO' TO FLD2
  1070. ELSE
  1071.   IF FLD2='2'
  1072.     STORE 'AUTHORS' TO FLD2
  1073.   ELSE
  1074.     IF FLD2='3'
  1075.       STORE 'TITLE' TO FLD2
  1076.     ELSE
  1077.       IF FLD2='4'
  1078.         STORE 'SOURCE' TO FLD2
  1079.       ELSE
  1080.         IF FLD2='5'
  1081.           STORE 'KWORDS' TO FLD2
  1082.         ENDIF
  1083.       ENDIF
  1084.     ENDIF
  1085.   ENDIF
  1086. ENDIF
  1087. IF FLD3='1'
  1088.   STORE 'REF:NO' TO FLD3
  1089. ELSE
  1090.   IF FLD3='2'
  1091.     STORE 'AUTHORS' TO FLD3
  1092.   ELSE
  1093.     IF FLD3='3'
  1094.       STORE 'TITLE' TO FLD3
  1095.     ELSE
  1096.       IF FLD3='4'
  1097.         STORE 'SOURCE' TO FLD3
  1098.       ELSE
  1099.         IF FLD3='5'
  1100.           STORE 'KWORDS' TO FLD3
  1101.         ENDIF
  1102.       ENDIF
  1103.     ENDIF
  1104.   ENDIF
  1105. ENDIF
  1106. STORE TRIM(SSTR1) TO SSTR1
  1107. STORE TRIM(SSTR2) TO SSTR2
  1108. STORE TRIM(SSTR3) TO SSTR3
  1109. IF FLD3<>' '
  1110.   @ 20,22 SAY '                                      '
  1111.   @ 20,27 SAY '*** LOCATING RECORD(S) ***'
  1112.   LOCATE FOR !(SSTR1)$!(&FLD1) .AND. !(SSTR2)$!(&FLD2);
  1113.    .AND. !(SSTR3)$!(&FLD3)
  1114. ELSE
  1115.    IF FLD2<>' '
  1116.      @ 20,22 SAY '                                      '
  1117.      @ 20,27 SAY '*** LOCATING RECORD(S) ***'è     LOCATE FOR !(SSTR1)$!(&FLD1) .AND. !(SSTR2)$!(&FLD2)
  1118.    ELSE
  1119.      @ 20,22 SAY '                                      '
  1120.      @ 20,27 SAY '*** LOCATING RECORD(S) ***'
  1121.      LOCATE FOR !(SSTR1)$!(&FLD1)
  1122.    ENDIF
  1123. ENDIF
  1124. ERASE
  1125. @ 12,15 SAY "NAME OF 'TEXT FILE' TO WRITE RESULTS TO ";
  1126.  GET NAME PICTURE 'XXXXXXXXXXXXXXXXXXXX'
  1127. READ
  1128. SET ALTERNATE TO &NAME
  1129. SET ALTERNATE ON
  1130. DO WHILE .NOT. EOF
  1131.   STORE $(AUTHORS,1,40) TO AU1
  1132.   STORE $(AUTHORS,41,40) TO AU2
  1133.   STORE $(TITLE,1,40) TO TI1
  1134.   STORE $(TITLE,41,40) TO TI2
  1135.   STORE $(TITLE,81,40) TO TI3
  1136.   STORE $(TITLE,121,40) TO TI4
  1137.   STORE $(SOURCE,1,40) TO SO1
  1138.   STORE $(SOURCE,41,40) TO SO2
  1139.   STORE $(KWORDS,1,40) TO KW1
  1140.   STORE $(KWORDS,41,40) TO KW2
  1141.   ? REF:NO 
  1142.   ? AU1 
  1143.   IF AU2<>' '
  1144.     ? AU2 
  1145.   ENDIF
  1146.   ? TI1
  1147.   IF TI2<>' '
  1148.     ? TI2 
  1149.     IF TI3<>' '
  1150.       ? TI3 
  1151.       IF TI4<>' '
  1152.         ? TI4 
  1153.       ENDIF
  1154.     ENDIF
  1155.   ENDIF
  1156.   ? SO1
  1157.   IF SO2<>' '
  1158.     ? SO2 
  1159.   ENDIF
  1160.   ? KW1
  1161.   IF KW2<>' '
  1162.     ? KW2 
  1163.   ENDIF
  1164.   ?
  1165.   CONTINUE
  1166.   ENDDO
  1167. SET ALTERNATE OFF
  1168. ERASE
  1169. @     20,21 SAY '************** FINISHED ***************'
  1170. @     21,21 SAY '*** PRESS ANY KEY TO RETURN TO MENU ***'
  1171. @     22,1  SAY ' 'èWAIT
  1172. RELEASE REC:NO,MESSAGE,COLUMN,FLD1,FLD2,FLD3,SSTR1,SSTR2,;
  1173.  SSTR3,PRINT,CONTINUE
  1174. RETURN
  1175.  
  1176.  
  1177. LISTING OF OPTION 6 PROGRAM:
  1178.  
  1179. NOTE  - EXTENDED COMMAND FILE <INDEX.CMD>
  1180. USE &FILE1
  1181. GO BOTTOM
  1182. STORE STR(#,6) TO REC:NO
  1183. ERASE
  1184. @  3,15 SAY '*** REFS.DBF PRESENTLY CONTAINS '+REC:NO+';
  1185.  RECORDS ***'
  1186. @  5,15 SAY;
  1187.  '____________________________________________________'
  1188. @  6,14 SAY;
  1189.  '|                                                    |'
  1190. @  7,14 SAY;
  1191.  '|              *** IMPORTANT NOTE ***                |'
  1192. @  8,14 SAY;
  1193.  '|                                                    |'
  1194. @  9,14 SAY;
  1195.  '| Re-indexing the reference file on authors, source, |'
  1196. @ 10,14 SAY;
  1197.  '| and key words  requires serveral  minutes.   The   |'
  1198. @ 11,14 SAY;
  1199.  '| indexed  files are  ONLY  required  for  option 4  |'
  1200. @ 12,14 SAY;
  1201.  '| (QUICKLY FIND ARTICLES)  to function.   If you do  |'
  1202. @ 13,14 SAY;
  1203.  '| not intend to use this option STOP now! This will  |'
  1204. @ 14,14 SAY;
  1205.  '| save many sectors of disk storage disk space!!!!!  |'
  1206. @ 15,14 SAY;
  1207.  '|                                                    |'
  1208. @ 16,14 SAY;
  1209.  '|           ** WANT TO CONTINUE? (Y/N) **            |'
  1210. @ 17,14 SAY;
  1211.  '|____________________________________________________|'
  1212. @ 22,1 SAY ' '
  1213. WAIT TO ANSWER
  1214. IF !(ANSWER)='N'
  1215.   RELEASE REC:NO,ANSWER
  1216.   RETURN
  1217. ENDIF
  1218. ERASE
  1219. @ 12,16 SAY "**** INDEXING AUTHOR'S NAME(S) TO ";
  1220.  "AUTHOR.NDX ****"
  1221. STORE DR+':AUTHORS' TO FILE
  1222. INDEX ON AUTHORS TO &FILE
  1223. USE &FILE1
  1224. ERASE
  1225. @ 11,28 SAY'**** INDEX COMPLETE ****'
  1226. @  5,26  SAY '** WANT TO CONTIUE? (Y/N) **'
  1227. @ 22,1 SAY ' '
  1228. WAIT TO ANSWER
  1229. IF !(ANSWER)='N'è  RELEASE REC:NO,ANSWER
  1230.   RETURN
  1231. ENDIF
  1232. ERASE
  1233. @ 12,19 SAY '**** INDEXING ON SOURCE TO SOURCE.NDX ****'
  1234. STORE DR+':SOURCE' TO FILE
  1235. INDEX ON SOURCE TO &FILE
  1236. USE &FILE1
  1237. ERASE
  1238. @ 11,28 SAY'**** INDEX COMPLETE ****'
  1239. @  5,26  SAY '** WANT TO CONTIUE? (Y/N) **'
  1240. @ 22,1 SAY ' '
  1241. WAIT TO ANSWER
  1242. IF !(ANSWER)='N'
  1243.   RELEASE REC:NO,ANSWER
  1244.   RETURN
  1245. ENDIF
  1246. ERASE
  1247. @ 12,18 SAY '**** INDEXING ON KEY WORDS TO KWORDS.NDX ****'
  1248. STORE DR+':KWORDS' TO FILE
  1249. INDEX ON KWORDS TO &FILE
  1250. USE 
  1251. ERASE
  1252. @ 11,28 SAY'**** INDEX COMPLETE ****'
  1253. @ 13,18  SAY '*** PRESS ANY KEY TO RETURN TO MAIN MENU ***'
  1254. @ 22,1 SAY ' '
  1255. WAIT
  1256. RELEASE REC:NO,ANSWER
  1257. RETURN
  1258.  
  1259.  
  1260. LISTING OF OPTION 7 PROGRAM:
  1261.  
  1262. NOTE -- EXTENDED COMMAND FILE <LABEL.CMD>
  1263. USE &FILE1
  1264. GO TOP
  1265. STORE 2 TO LINE
  1266. STORE ' ' TO B:REF
  1267. STORE 'Y' TO CONTINUE
  1268. STORE '                                        ' TO M:NAME
  1269. STORE '    ' TO REF
  1270. ERASE
  1271. @  2,17 SAY;
  1272.  "******************************************************"
  1273. @  3,17 SAY;
  1274.  "*                                                    *"
  1275. @  4,17 SAY;
  1276.  "* This program will type on 1 1/2 x 4 inch pregummed *"
  1277. @  5,17 SAY;
  1278.  "* tractorfeed labels (1) the file owner's name,  (2) *"
  1279. @  6,17 SAY;
  1280.  "* the alphanumeric number under which the article is *"
  1281. @  7,17 SAY;
  1282.  "* stored,  and  (3) the  key words  under  which the *"
  1283. @  8,17 SAY;
  1284.  "* article is referenced.                             *"
  1285. @  9,17 SAY;
  1286.  "*                                                    *"
  1287. @ 10,17 SAY;
  1288.  "******************************************************"
  1289. @ 14,22 SAY '** DO YOU WANT TO CONTINUE? (Y/N) **'
  1290. @ 22,1  SAY ' '
  1291. WAIT TO CONTINUE
  1292. IF !(CONTINUE)='N'
  1293.   RETURN
  1294. ENDIF
  1295. @ 14,22 SAY '                                     '
  1296. @ 23,0  SAY '                                '
  1297. @ 14,9  SAY "ENTER FILE OWNER'S NAME " GET M:NAME ;
  1298.  PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  1299. @ 16,11 SAY 'ENTER LETTER OF REFERENCE NUMBER FOR;
  1300.  WHICH YOU WANT LABELS ' GET B:REF PICTURE 'X'
  1301. READ
  1302. @ 18,19 SAY 'ENTER NUMBER OF LAST '+!(B:REF)+; 
  1303. '-ARTICLE LABELED ' GET REF PICTURE '9999'
  1304. READ
  1305. @ 20,27 SAY '** PRINTER READY? (Y/N) **'
  1306. @ 22,1  SAY ' '
  1307. WAIT TO CONTINUE
  1308. IF !(CONTINUE)='N'
  1309.   RETURN
  1310. ENDIF
  1311. @ 20,27 SAY '                                     '
  1312. @ 23,0  SAY '                                'è@ 20,29 SAY '** LOCATING RECORDS **'
  1313. LOCATE FOR !(B:REF)$REF:NO .AND. !(REF)$REF:NO
  1314. SET FORMAT TO PRINT
  1315. SET EJECT OFF
  1316. DO WHILE .NOT. EOF
  1317.   STORE $(KWORDS,1,40) TO KW1
  1318.   STORE $(KWORDS,41,40) TO KW2
  1319.   @ LINE,17 SAY M:NAME USING;
  1320.    'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  1321.   STORE LINE+2 TO LINE
  1322.   @ LINE,1 SAY 'REF. NO.: '+REF:NO USING 'XXXXXXXXXXXXXXX'
  1323.   STORE LINE+1 TO LINE
  1324.   @ LINE,1 SAY KW1
  1325.   IF KW2<>' '
  1326.     STORE LINE+1 TO LINE
  1327.     @ LINE,1 SAY KW2
  1328.     STORE LINE+5 TO LINE
  1329.   ENDIF
  1330.   IF KW2=' '
  1331.     STORE LINE+6 TO LINE
  1332.   ENDIF
  1333.   CONTINUE
  1334. ENDDO
  1335. @ LINE+1,1 SAY ' '
  1336. RELEASE B:REF,REF,M:NAME,CONTINUE
  1337. SET FORMAT TO SCREEN
  1338. RETURN
  1339.  
  1340.  
  1341. LISTING OF OPTION 8 PROGRAM:
  1342.  
  1343. NOTE  - EXTENDED COMMAND FILE <EDIT.CMD>
  1344. USE &FILE1
  1345. ERASE
  1346. @  3,26 SAY '** EDIT DATA BASE RECORDS **'
  1347. @  5,21 SAY 'EACH RECORD CONSISTS OF 406 CHARACTERS'
  1348. @  6,21 SAY 'DIVIDED INTO THE FOLLOWING FIVE FIELDS'
  1349. @  8,26 SAY 'FLD     NAME      TYPE WIDTH'
  1350. @  9,26 SAY '001   REF:NO       C    005'
  1351. @ 10,26 SAY '002   AUTHORS      C    080'
  1352. @ 11,26 SAY '003   TITLE        C    160'
  1353. @ 12,26 SAY '004   SOURCE       C    080'
  1354. @ 13,26 SAY '005   KWORDS       C    080'
  1355. @ 14,26 SAY '**TOTAL**             00406'
  1356. @ 16,21 SAY 'ANY RECORD WITHIN  THE DATA BASE MAY BE'
  1357. @ 17,21 SAY 'LOCATED  BY  SEARCHING  FOR  IT BY  ITS'
  1358. @ 18,21 SAY 'REFERENCE NUMBER,  AUTHOR(S),  TITLE OR'
  1359. @ 19,21 SAY 'SOURCE.   ONCE LOCATED  THE INFORMATION'
  1360. @ 20,21 SAY 'MAY BE EDITED, OR THE ENTIRE RECORD MAY'
  1361. @ 21,21 SAY 'BE DELETED.  PRESS ANY KEY TO CONTINUE.'
  1362. @ 22,1  SAY ' '
  1363. WAIT
  1364. ERASE
  1365. @  1,14 SAY;
  1366.  'THE FOLLOWING CONTROL CHARACTERS ARE USED IN EDITING'
  1367. @  3,14 SAY;
  1368.  '<CTRL>D - MOVE CURSOR RIGHT  <CTRL>E - MOVE CURSOR UP'
  1369. @  4,14 SAY;
  1370.  '<CTRL>S - MOVE CURSOR LEFT   <CTRL>X - MOVE CURSOR DOWN'
  1371. @  5,14 SAY;
  1372.  '<CTRL>G - DELETE CHARACTER   <CTRL>Y - DLETETE LINE'
  1373. @  7,26 SAY;
  1374.  '** WANT TO CONTINUE? (Y/N) **'
  1375. @  22,1 SAY ' '
  1376. WAIT TO CONTINUE
  1377. IF !(CONTINUE)='N'
  1378.   RELEASE CONTINUE
  1379.   RETURN
  1380. ENDIF
  1381. @  7,26 SAY '                              '
  1382. @  23,0 SAY '                    '
  1383. STORE '1' TO FLD
  1384. STORE 'N' TO DEL
  1385. STORE '     ' TO SSTR
  1386. STORE '                                         ' TO SSTR1
  1387. STORE '                                         ' TO SSTR2
  1388. STORE '                                         ' TO SSTR3
  1389. STORE '                                         ' TO SSTR4
  1390. @  7,19 SAY 'ENTER FIELD TO SEARCH ON (1,2,3, OR 4) ';
  1391.  GET FLD PICTURE '9'
  1392. READ
  1393. IF FLD='1'è  STORE 'REF:NO' TO FLD
  1394.   @  7,17 SAY;
  1395.    '                                              '
  1396.   @  7,25 SAY 'ENTER REFERENCE NUMBER ';
  1397.    GET SSTR PICTURE 'AX999'
  1398.   READ
  1399. ELSE
  1400.   IF FLD='2'
  1401.     STORE 'AUTHORS' TO FLD
  1402.     @  7,17 SAY;
  1403.      '                                              '
  1404.     @  7,27 SAY '** ENTER AUTHOR(S) NAME **'
  1405.     @  9,20 GET SSTR1 PICTURE;
  1406.      'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  1407.     @ 10,20 GET SSTR2 PICTURE;
  1408.      'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  1409.     READ
  1410.     STORE SSTR1+SSTR2 TO SSTR
  1411.   ELSE
  1412.     IF FLD='3'
  1413.       STORE 'TITLE' TO FLD
  1414.       @  7,17 SAY;
  1415.        '                                              '
  1416.       @ 7,32 SAY '** ENTER TITLE **'
  1417.       @  9,20 GET SSTR1 PICTURE;
  1418.        'XXXXXXXXXXXXXXXXXXXX
  1419.       @ 10,20 GET SSTR2 PICTURE
  1420.        'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  1421.       @ 11,20 GET SSTR3 PICTURE;
  1422.        'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  1423.       @ 12,20 GET SSTR4 PICTURE;
  1424.        'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  1425.       READ
  1426.       STORE SSTR1+SSTR2+SSTR3+SSTR4 TO SSTR
  1427.     ELSE
  1428.       IF FLD='4'
  1429.         STORE 'SOURCE' TO FLD
  1430.         @  7,17 SAY;
  1431.          '